[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
Arc procedure
DECLARATION: Arc(X,Y : Integer; StAngle, EndAngle, Radius : Word);
PURPOSE: Draws a circular arc.
UNIT: Graph
REMARKS: Draws from a specified start angle to a specified end
angle, using (X,Y) as the center point and Radius as the
radius of the arc. The Arc is drawn in with the current
drawing color.
Each graphics driver contains an aspect ratio that is used
by Circle, Arc, and PieSlice. Using a StAngle of 0 and
an EndAngle of 359 will draw a complete circle.
The angles are denoted counterclockwise with 0 degrees at
3 o'clock, 90 degrees at 12 o'clock etc.
RESTRICTIONS: Must be in graphics mode.
EXAMPLE: Uses Graph;
Var
Gd, Gm : Integer;
radius : Integer;
Begin
Gd := Detect;
InitGraph(Gd, Gm, '');
If (GraphResult <> grOK) Then
Halt(1);
For (radius := 1 To 5) Do
Arc(100, 100, 0, 90, radius*10);
Readln;
CloseGraph;
End.
See Also:
Circle
Ellipse
GetArcCoords
GetAspectRatio
PieSlice
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson